<!-- By Kaniz 3 April 2014 -->
<HEAD>
  <TITLE>Cloud Database Back Up Utility</TITLE>
  <HTA:APPLICATION ID="oMyApp" 
    APPLICATIONNAME="Cloud Database Back Up Utility" 
    BORDER="Thin"
    CAPTION="Yes"
    SCROLL="NO"
    SHOWINTASKBAR="yes"
    SINGLEINSTANCE="yes"
    SYSMENU="Yes">
</HEAD>
<BODY bgcolor="#c5d9f9">
<SCRIPT LANGUAGE="VBScript">

Sub Window_OnLoad
    Window.Site.Focus
End Sub

Sub btn01_OnClick
    Dim strCustomer
    Dim strDatabase
    oElements = Window.Site.SelectedIndex
	strCustomer = Window.Site.Options(oElements).Text
    strDatabase = Window.Site.Options(oElements).Value
 	
	Dim strNowTime, strFileName
	strNowTime = CStr(Year(Now))+CStr(Month(Now))+CStr(Day(Now))+"_"+CStr(Hour(Now))+CStr(Minute(Now))
	strFileName = UCase(strCustomer)+"_"+strNowTime+".dmp"
	
	MessageSpan.InnerHTML = "Exporting " + strCustomer + "'s data from " + strDatabase + " to "+ strFileName + "..."
	
	Dim oShell, oExec, sLine
    Set oShell = CreateObject("WScript.Shell")
    Set oExec = oShell.Exec("exp LACONIC/LACONIC@" + strDatabase +" file=" + strFileName)
	
End Sub

Sub btn02_OnClick
    Window.Close
End Sub
</SCRIPT>

<H2>Database backup</H2>
<P>Please select the customer: 
<SELECT NAME="Site">
    <OPTION Value="LACONIC">Vovan</OPTION>
    <OPTION Value="LACONIC_PLUGGABLE1">SouthEastGroup</OPTION>
    <OPTION Value="LACONIC_PLUGGABLE2">Laconic</OPTION>
    <OPTION Value="LACONIC_PLUGGABLE3">Gochisou</OPTION>
	<!-- pattern: <OPTION Value="TNS name">Customer name</OPTION> -->
</SELECT><P>
<p>
<span id = "MessageSpan"></span>
<BR>
<BR>
<Input Type = "Button" Name = "btn01" VALUE = "EXPORT">
<Input Type = "Button" Name = "btn02" VALUE = "CLOSE">
<BR>
<BR>

</BODY>